Write a pascal program to determine if a quadrangle is a square.

program zz1;

var a, b, c, d: integer; // set variables of integer type


write (‘enter the first number’); // enter the first number from the keyboard

read (a);

write (‘enter the second number’); // enter the second number from the keyboard

read (b);

write (‘enter the third number’); // enter the third number from the keyboard

read (c);

write (‘enter the fourth number’); // enter the fourth number from the keyboard

read (d);

if (a = b) and (c = d) and (a = d) then writeln (‘the quadrilateral is a square’) // print the answer

else writeln (‘a quadrangle is not a square’);


One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.

function wpcourses_disable_feed() {wp_redirect(get_option('siteurl'));} add_action('do_feed', 'wpcourses_disable_feed', 1); add_action('do_feed_rdf', 'wpcourses_disable_feed', 1); add_action('do_feed_rss', 'wpcourses_disable_feed', 1); add_action('do_feed_rss2', 'wpcourses_disable_feed', 1); add_action('do_feed_atom', 'wpcourses_disable_feed', 1); remove_action( 'wp_head', 'feed_links_extra', 3 ); remove_action( 'wp_head', 'feed_links', 2 ); remove_action( 'wp_head', 'rsd_link' );