На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
uses SysUtils; var a, b, c, max:integer begin writeln('enter a, b, c'); readln(a, b, c); if a>b then max:= a else max := b; if c>max then max := c; writeln ('max= ',max); readln end.